home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_gen / yg600w95.zip / YGREP32.BAS < prev    next >
BASIC Source File  |  1996-12-02  |  4KB  |  59 lines
  1. REM    -----------------------------------------------------------------------
  2. REM    $Id: YGREP32.BAS 1.1 1996/10/05 02:16:05 Y.Roumazeilles Exp $
  3. REM    -----------------------------------------------------------------------
  4.  
  5. REM    -----------------------------------------------------------------------
  6. REM    YGrep Search Engine v6.00    (C) Copyright 1996 - Yves Roumazeilles
  7. REM
  8. REM    YGREP32.BAS: Interface description for YGREP32.DLL
  9. REM                 (YGrep Search Engine 32 bit edition)
  10. REM    -----------------------------------------------------------------------
  11.  
  12. REM    -----------------------------------------------------------------------
  13. REM    Sample for a Visual Basic 4 (32-bits) use of various functions.
  14. REM    
  15. REM        Dim lpStrAddress As Long
  16. REM        Dim RetStr$
  17. REM        RetStr$ = String$(1024, 0)
  18. REM        
  19. REM        Etiquette1.Caption = "toto"
  20. REM        FileIn$ = "C:\usr\local\src\ygrep5\test.txt" + Chr$(0)
  21. REM        ss = SFileOpen(FileIn$)
  22. REM        Pattern$ = "YGrep" + Chr$(0)
  23. REM        ss = SCompileRGrep(Pattern$, False)
  24. REM        
  25. REM        lpStrAddress = SFileRGrep()
  26. REM        lpStrAddress = lstrcpy(RetStr$, lpStrAddress)
  27. REM        Etiquette1.Caption = RetStr$
  28. REM    
  29. REM    Thanks!
  30. REM    -----------------------------------------------------------------------
  31.  
  32. Private Declare Function lstrcpy Lib "Kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  33.  
  34.  
  35. Private Declare function SCompileAGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal k As Integer, ByVal bMatchCase As Integer) As Integer
  36. Private Declare function SAGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  37. Private Declare sub      SAGrepInit Lib "YGrep32.dll" ()
  38. Private Declare sub      SAGrepEmpty Lib "YGrep32.dll" ()
  39. Private Declare function SAGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal iSize As Integer) As Integer
  40.  
  41. Private Declare function SCompileRGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal bMatchCase As Integer) As Integer
  42. Private Declare function SRGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  43. Private Declare function SRGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal iSize As Integer) As Integer
  44.  
  45. Private Declare function SCompileSGrep Lib "YGrep32.dll" (ByVal lpszGrepString As String, ByVal bMatchCase As Integer) As Integer
  46. Private Declare function SSGrep Lib "YGrep32.dll" (ByVal lpszStringToSearch As String) As Integer
  47. Private Declare function SSGrepSubsBuild Lib "YGrep32.dll" (ByVal lpszPattern As String, ByVal lpszDest As String, ByVal iSize As Integer) As Integer
  48.  
  49. Private Declare sub      InitWordCharTable Lib "YGrep32.dll" ()
  50. Private Declare function AddWordChar Lib "YGrep32.dll" (ByVal lpszS As String) As Integer
  51. Private Declare function RemoveWordChar Lib "YGrep32.dll" (ByVal lpszS As String) As Integer
  52.  
  53. Private Declare sub      SFileSetFlags Lib "YGrep32.dll" ( ByVal bPrintFileName As Integer, ByVal bPrintBlockNumber As Integer, ByVal bPrintLineNumber As Integer, ByVal bCountsOnly As Integer, ByVal bNonMatching As Integer )
  54. Private Declare function SFileOpen Lib "YGrep32.dll" ( ByVal strFileName As String ) As Integer
  55. Private Declare function SFileAGrep Lib "YGrep32.dll" () As Long
  56. Private Declare function SFileRGrep Lib "YGrep32.dll" () As Long
  57. Private Declare function SFileSGrep Lib "YGrep32.dll" () As Long
  58. Private Declare function SFileClose Lib "YGrep32.dll" () As Long
  59.